home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / GEN.DCR / 00477.ls < prev    next >
Encoding:
Text File  |  1998-12-02  |  2.5 KB  |  86 lines
  1. on exitFrame
  2.   go(the frame)
  3. end
  4.  
  5. on enterFrame
  6.   global ActiveHZone, lastRo
  7.   set ActiveHZone to "S3"
  8.   set startHZone to 2
  9.   set hZone1 to startHZone
  10.   set hZone2 to startHZone + 1
  11.   set hZone3 to startHZone + 2
  12.   set hZone4 to startHZone + 3
  13.   set hZone5 to startHZone + 4
  14.   set hzone6 to startHZone + 5
  15.   set ro to rollOver()
  16.   if (lastRo >= 18) and (lastRo <= 27) and (lastRo <> ro) then
  17.     cursor(-1)
  18.     puppetSprite(lastRo - 10, 0)
  19.   end if
  20.   set lastRo to ro
  21.   case ro of
  22.     hZone1:
  23.       initSprites()
  24.       go("OrdinateurS1")
  25.     hZone2:
  26.       initSprites()
  27.       go("OrdinateurS2")
  28.     hZone3:
  29.       initSprites()
  30.       go("OrdinateurS3")
  31.     hZone4:
  32.       initSprites()
  33.       go("OrdinateurS4")
  34.     hZone5:
  35.       initSprites()
  36.       go("OrdinateurS5")
  37.     hzone6:
  38.       initSprites()
  39.       go("OrdinateurS6")
  40.     18:
  41.       cursor([member "mousePointer", member "mousePointerMask"])
  42.       puppetSprite(18 - 10, 1)
  43.       set the member of sprite (18 - 10) to member "Or20HL"
  44.     19:
  45.       cursor([member "mousePointer", member "mousePointerMask"])
  46.       puppetSprite(19 - 10, 1)
  47.       set the member of sprite (19 - 10) to member "Or21HL"
  48.     20:
  49.       cursor([member "mousePointer", member "mousePointerMask"])
  50.       puppetSprite(20 - 10, 1)
  51.       set the member of sprite (20 - 10) to member "Or22HL"
  52.     21:
  53.       cursor([member "mousePointer", member "mousePointerMask"])
  54.       puppetSprite(21 - 10, 1)
  55.       set the member of sprite (21 - 10) to member "Or23HL"
  56.     22:
  57.       cursor([member "mousePointer", member "mousePointerMask"])
  58.       puppetSprite(22 - 10, 1)
  59.       set the member of sprite (22 - 10) to member "Or24HL"
  60.     23:
  61.       cursor([member "mousePointer", member "mousePointerMask"])
  62.       puppetSprite(23 - 10, 1)
  63.       set the member of sprite (23 - 10) to member "Or25HL"
  64.     24:
  65.       cursor([member "mousePointer", member "mousePointerMask"])
  66.       puppetSprite(24 - 10, 1)
  67.       set the member of sprite (24 - 10) to member "Or26HL"
  68.     25:
  69.       cursor([member "mousePointer", member "mousePointerMask"])
  70.       puppetSprite(25 - 10, 1)
  71.       set the member of sprite (25 - 10) to member "Or27HL"
  72.     26:
  73.       cursor([member "mousePointer", member "mousePointerMask"])
  74.       puppetSprite(26 - 10, 1)
  75.       set the member of sprite (26 - 10) to member "Or28HL"
  76.     27:
  77.       cursor([member "mousePointer", member "mousePointerMask"])
  78.       puppetSprite(27 - 10, 1)
  79.       set the member of sprite (27 - 10) to member "Or29HL"
  80.     otherwise:
  81.       initSprites()
  82.       go("ordinateurS3")
  83.   end case
  84.   updateStage()
  85. end
  86.